home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / SCSL / slaein.z / slaein
Encoding:
Text File  |  2002-10-03  |  4.9 KB  |  133 lines
  1.  
  2.  
  3.  
  4. SSSSLLLLAAAAEEEEIIIINNNN((((3333SSSS))))                                                          SSSSLLLLAAAAEEEEIIIINNNN((((3333SSSS))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      SLAEIN - use inverse iteration to find a right or left eigenvector
  10.      corresponding to the eigenvalue (WR,WI) of a real upper Hessenberg matrix
  11.      H
  12.  
  13. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  14.      SUBROUTINE SLAEIN( RIGHTV, NOINIT, N, H, LDH, WR, WI, VR, VI, B, LDB,
  15.                         WORK, EPS3, SMLNUM, BIGNUM, INFO )
  16.  
  17.          LOGICAL        NOINIT, RIGHTV
  18.  
  19.          INTEGER        INFO, LDB, LDH, N
  20.  
  21.          REAL           BIGNUM, EPS3, SMLNUM, WI, WR
  22.  
  23.          REAL           B( LDB, * ), H( LDH, * ), VI( * ), VR( * ), WORK( * )
  24.  
  25. IIIIMMMMPPPPLLLLEEEEMMMMEEEENNNNTTTTAAAATTTTIIIIOOOONNNN
  26.      These routines are part of the SCSL Scientific Library and can be loaded
  27.      using either the -lscs or the -lscs_mp option.  The -lscs_mp option
  28.      directs the linker to use the multi-processor version of the library.
  29.  
  30.      When linking to SCSL with -lscs or -lscs_mp, the default integer size is
  31.      4 bytes (32 bits). Another version of SCSL is available in which integers
  32.      are 8 bytes (64 bits).  This version allows the user access to larger
  33.      memory sizes and helps when porting legacy Cray codes.  It can be loaded
  34.      by using the -lscs_i8 option or the -lscs_i8_mp option. A program may use
  35.      only one of the two versions; 4-byte integer and 8-byte integer library
  36.      calls cannot be mixed.
  37.  
  38. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  39.      SLAEIN uses inverse iteration to find a right or left eigenvector
  40.      corresponding to the eigenvalue (WR,WI) of a real upper Hessenberg matrix
  41.      H.
  42.  
  43. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  44.      RIGHTV   (input) LOGICAL
  45.               = .TRUE. : compute right eigenvector;
  46.               = .FALSE.: compute left eigenvector.
  47.  
  48.      NOINIT   (input) LOGICAL
  49.               = .TRUE. : no initial vector supplied in (VR,VI).
  50.               = .FALSE.: initial vector supplied in (VR,VI).
  51.  
  52.      N       (input) INTEGER
  53.              The order of the matrix H.  N >= 0.
  54.  
  55.      H       (input) REAL array, dimension (LDH,N)
  56.              The upper Hessenberg matrix H.
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70. SSSSLLLLAAAAEEEEIIIINNNN((((3333SSSS))))                                                          SSSSLLLLAAAAEEEEIIIINNNN((((3333SSSS))))
  71.  
  72.  
  73.  
  74.      LDH     (input) INTEGER
  75.              The leading dimension of the array H.  LDH >= max(1,N).
  76.  
  77.      WR      (input) REAL
  78.              WI      (input) REAL The real and imaginary parts of the
  79.              eigenvalue of H whose corresponding right or left eigenvector is
  80.              to be computed.
  81.  
  82.      VR      (input/output) REAL array, dimension (N)
  83.              VI      (input/output) REAL array, dimension (N) On entry, if
  84.              NOINIT = .FALSE. and WI = 0.0, VR must contain a real starting
  85.              vector for inverse iteration using the real eigenvalue WR; if
  86.              NOINIT = .FALSE. and WI.ne.0.0, VR and VI must contain the real
  87.              and imaginary parts of a complex starting vector for inverse
  88.              iteration using the complex eigenvalue (WR,WI); otherwise VR and
  89.              VI need not be set.  On exit, if WI = 0.0 (real eigenvalue), VR
  90.              contains the computed real eigenvector; if WI.ne.0.0 (complex
  91.              eigenvalue), VR and VI contain the real and imaginary parts of
  92.              the computed complex eigenvector. The eigenvector is normalized
  93.              so that the component of largest magnitude has magnitude 1; here
  94.              the magnitude of a complex number (x,y) is taken to be |x| + |y|.
  95.              VI is not referenced if WI = 0.0.
  96.  
  97.      B       (workspace) REAL array, dimension (LDB,N)
  98.  
  99.      LDB     (input) INTEGER
  100.              The leading dimension of the array B.  LDB >= N+1.
  101.  
  102.      WORK   (workspace) REAL array, dimension (N)
  103.  
  104.      EPS3    (input) REAL
  105.              A small machine-dependent value which is used to perturb close
  106.              eigenvalues, and to replace zero pivots.
  107.  
  108.      SMLNUM  (input) REAL
  109.              A machine-dependent value close to the underflow threshold.
  110.  
  111.      BIGNUM  (input) REAL
  112.              A machine-dependent value close to the overflow threshold.
  113.  
  114.      INFO    (output) INTEGER
  115.              = 0:  successful exit
  116.              = 1:  inverse iteration did not converge; VR is set to the last
  117.              iterate, and so is VI if WI.ne.0.0.
  118.  
  119. SSSSEEEEEEEE AAAALLLLSSSSOOOO
  120.      INTRO_LAPACK(3S), INTRO_SCSL(3S)
  121.  
  122.      This man page is available only online.
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.                                                                         PPPPaaaaggggeeee 2222
  130.  
  131.  
  132.  
  133.